home *** CD-ROM | disk | FTP | other *** search
/ Tux Racer / Tux Racer.iso / program files / Sunspire Studios / Tux Racer / courses / forest / foggy_light.tcl < prev    next >
Encoding:
Text File  |  2001-09-09  |  1.3 KB  |  35 lines
  1. objcreate {s_course} {:course} \
  2.     {-light0_on} {1} \
  3.     {-light0_ambient} {0.579999983311 0.600000023842 0.680000007153 1.0} \
  4.     {-light0_diffuse} {0.129999995232 0.109999999404 0.0799999982119 1.0} \
  5.     {-light0_position} {0.20000000298 1.0 -1.0 0.0}
  6.  
  7. set fog_dist 50
  8. set far_clip [tux_get_param forward_clip_distance]
  9. if { $fog_dist > $far_clip } {
  10.     set fog_dist $far_clip
  11. } 
  12.  
  13. tux_fog -on -mode linear -start -10 -end $fog_dist -colour { 0.3 0.3 0.31 1.0 }
  14.  
  15. tux_particle_colour { 0.85 0.85 0.85 1.0 }
  16.  
  17. tux_load_texture envmap ../forest/alpineovercast_right.png 0
  18.   
  19. tux_load_texture forest-front ../forest/alpineovercast_front.png 0
  20. tux_load_texture forest-right ../forest/alpineovercast_right.png 0
  21. tux_load_texture forest-left ../forest/alpineovercast_left.png 0
  22. tux_load_texture forest-back ../forest/alpineovercast_back.png 0
  23. tux_load_texture forest-top ../forest/alpineovercast_top.png 0
  24. tux_load_texture forest-bottom ../forest/alpineovercast_bottom.png 0
  25.  
  26. tux_bind_texture sky_front forest-front
  27. tux_bind_texture sky_right forest-right
  28. tux_bind_texture sky_left forest-left
  29. tux_bind_texture sky_back forest-back
  30. tux_bind_texture sky_top forest-top
  31. tux_bind_texture sky_bottom forest-bottom
  32.  
  33. objcreate {s_texture_cube} {:textures:cubemap} \
  34.     {-filename} {../forest/alpineovercast_}
  35.